home *** CD-ROM | disk | FTP | other *** search
/ Canadian Geographic Explorer / Canadian Geographic Explorer.iso / pc / riddler.dxr / 00001_Begin Script.ls next >
Encoding:
Text File  |  1996-10-03  |  675 b   |  17 lines
  1. on exitFrame
  2.   global gAnimObj, gMusicChannel, gPathToSound, fileDelimiter
  3.   set jStartFrame to member ("L" & random(3) & " min") of castLib "opening animation"
  4.   set jNumOfFrames to 30
  5.   unloadMember()
  6.   preloadMember(member jStartFrame, member (the number of member jStartFrame + jNumOfFrames - 1))
  7.   init(gAnimObj, jStartFrame, jNumOfFrames, point(320, 240), 1)
  8.   set the actorList to []
  9.   add(the actorList, gAnimObj)
  10.   sound playFile gMusicChannel, gPathToSound & "music" & fileDelimiter & "ridmix.aif"
  11.   if not (the puppet of sprite 14) then
  12.     puppetSprite(14, 1)
  13.   end if
  14.   set the memberNum of sprite 14 to the number of member "click to begin"
  15.   updateStage()
  16. end
  17.